<%

Function mensagens_prontas(id, campos, variaveis)
	
					str = "SELECT mensagem from mensagens_prontas where id="&id
  					Set rs = conexao_geral.Execute(str)
					
					DIM mensagem, var, cam, i
					
					
					If not rs.eof then
					
						mensagem = rs("mensagem")
										
						var = Split(variaveis,"|")
						cam = Split(campos,"|")
		
						For i = 0 to Ubound(cam)

							mensagem= Replace(mensagem, "["&cam(i)&"]", var(i))
						Next
						
						mensagens_prontas = mensagem
						
					Else
					
						mensagens_prontas = ""
					
					End If	
		
End Function

%>